str(mclogit.classd.churchat)
traceback()
options(error=recover)
9
ls()
strformula
str(formula)
0
0
head(newdata.compare.time)
Q
str(mclogit.classd.churchat)
8
ls()
ls()
str(object)
str(data)
attr(data,"dataClasses")
attr(terms(data),"dataClasses")
Q
pp <- predict(mclogit.classd.churchat)
str(pp)
str(mclogit.classd.churchat$data)
0
debug(model.matrix.default)
reorder
t
names(data)
vapply(attr(t, "variables"), deparse2, "")
predict.lm
Q
tt <- terms(mclogit.classd.churchat)
tt
Terms <- delete.response(tt)
Terms
m <- model.frame(Terms,newdata.compare.time)
str(m)
rhs
obj$call$random
object$call$random
all.vars(object$call$random)
paste0("~",paste(all.vars(object$call$random)))
paste0("~",paste(all.vars(object$call$random),collapse="+"))
as.list(rhs)
as.character(rhs)
deparse(rhs)
all.vars(object$call$random)
paste0("+",all.vars(object$call$random))
paste("+",all.vars(object$call$random))
rhs.deparsed
paste0(rhs.deparsed)
paste0(rhs.deparsed,collapse="")
rhs.char
rhs.char
as.formula(rhs.char)
object.formula
object$formula
environment(object$formula)
fo
environment(fo)
Q
c
cf
colnames(X)
cnX <- colnames(X)
setdiff(cnX,cf)
cnX
cf
ncf <- names(cf)
setdiff(cnX,ncf)
setdiff(cnf,cnX)
setdiff(ncf,cnX)
str(object)
terms(object)
rhs
obj.terms <- terms(object)
obj.terms[[1]]
obj.terms[[2]]
obj.terms[2]
obj.terms[2]
obj.terms[1]
sets
fofo <- (a|b)~1
fofo
fofo[[2]]
lhs.fofo <- fofo[[2]]
lhs.fofo[[1]]
lhs.fofo[[2]]
length(lhs.fofo)
fofo <- cbind(a,b)~1
lhs.fofo <- fofo[[2]]
lhs.fofo[[1]]
fofo <- a|b~1
lhs.fofo <- fofo[[2]]
lhs.fofo
lhs.fofo[[1]]
rhs <- delete.response(obj.terms)
rhs
Q
traceback()
expand.model.frame
methods(formula)
stats:::formula.data.frame
obj.terms
update(obj.terms,foo~.)
update(rhs,foo~.)
formula(mf)
terms(rhs1)
str(mf)
expand.model.frame
str(object$model)
random
object$call$random
rmf <- model.frame(object$call$random,data=newdata)
str(rmf)
napredict
methods(napredict)
stats:::napredict.exclude
naresid.exclude
stats:::naresid.exclude
str(mf)
str(object)
Q
fo <- a ~ b
fo1 <- ~c
fo + fo1
c(fo,fo1)
as.list(fo)
fo <- a ~ b + c
addterm
?addterm
MASS:::addterm.default
add.scope
fo
fo1
fo1 <- ~d
add.scope(fo,fo1)
factor.scope
?factor.scope
fo[-2]
add.scope(fo[-2],fo1)
as.list(fo)
as.pairlist(fo)
c(fo,fo1)
c(fo,fo1[-1])
as.character(fo)
as.character(fo1)
?deparse
fo
deparse(fo)
deparse(fo1)
?deparse
trimws
ls()
fo
fo1
c_formulae(fo,fo1)
fo2 <- c_formulae(fo,fo1)
c_formulae(fo2,fo1)
asOneSidedFormula(`a`)
asOneSidedFormula("a")
asOneSidedFormula(letters)
deparse(`a`)
fo <- c_formulae(rhs,asOneSidedFormula(deparse(sets)))
fo
object$call$random
is.formula(rhs)
inherits(rhs,"formula")
is.list
fo
mf <- model.frame(terms(fo),data=newdata)
str(mf)
str(fo)
rhs
str(rhs)
rf
object$formula
rhs
mf <- model.frame(rhs,data=newdata)
str(mf)
rhs
fo
as.list(fo)
fo
rhs
rf
unbar(rf)
debug(unbar)
unbar(rf)
formula.deparsed
formula.deparsed
Q
fo
unbar(rf)
object$call$random
unbar
Q
rf
is_formula(rf)
str(rf)
rf
substitute(rf)
str(substitute(rf))
object$random
fandom2formula(object$random[[1]])
random2formula(object$random[[1]])
update(random2formula(object$random[[1]]),~.-1)
update(random2formula(object$random[[1]]),~.+0)
Q
fo
rns
rhs
str(mf)
str(X)
str(mf)
Q
cf
names(X)
colnames(X)
names(cf)
names(cf)
object$xlevels
Q
mclogit.classd.churchat$xlevels$churchat
sets
lhs
length(lhs)
lhs[[3]]
sets <- eval(lhs[[3]],newdata)
str(sets)
Q
str(j)
str(pred.resp)
Q
mclogit.classd
str(mclogit.classd)
class(mtable.mclogit.classd.churchat)
class(mclogit.classd.churchat)
str(mtable.mclogit.classd.churchat)
methods(predict)
predict.mclogit
class(mclogit.classd.churchat)
predict(mclogit.classd.churchat)
methods(predict.mclogit)
methods(predict)
str(newdata.comare.time)
str(newdata.compare.time)
pred.resp
str(pred.resp)
Q
